www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/manage/Function/Function_Down.asp

    <%
action=Request.QueryString ("Action")
Select Case Lcase(action)
Case "delall"
	Call dell_colume()
Case "add"
	Call add_colume()
Case "update"
	Call update_colume()
End Select

Sub dell_colume
    ID=trim(request("chk"))
	If ID="" Then response.write"<script language=javascript>alert('没有选择数据');history.go(-1);</script>":response.End
    sql="delete from Idea_Down where ID in("&ID&")"
	Call idea.exec("",-1)
	set rs = server.createobject("adodb.recordset")
	conn.execute(sql)
	set rs=nothing
	response.write "<script language=javascript>alert('数据删除成功');location.href='Admin_Down.asp';</script>"
End Sub

Sub add_colume	
	DownName=trim(request("DownName"))
	SortID=trim(request("Sort"))
	Accmode=trim(request("Accmode"))
	Language=trim(request("Language"))
	Approof=trim(request("Approof"))
	FileUrl=trim(request("FileUrl"))
	FileSize=trim(request("FileSize"))
	SoftPic=trim(request("pic"))
	sSoftPic=trim(request("spic"))
	Content=trim(request("Content"))
	if(trim(request("IsShow"))<>"") then
	IsShow=1
	else
	IsShow=0
	end if
	sql="insert into Idea_Down([DownName],[SortID],[Accmode],[Language],[Approof],[FileUrl],[FileSize],[SoftPic],[sSoftPic],[Content],[IsShow]) values('"&DownName&"',"&SortID&",'"&Accmode&"','"&Language&"','"&Approof&"','"&FileUrl&"','"&FileSize&"','"&SoftPic&"','"&sSoftPic&"','"&Content&"','"&IsShow&"')"
	Call idea.exec("",-1)
	set rs = server.createobject("adodb.recordset")
	conn.execute(sql)
	set rs=nothing
	response.write "<script language=javascript>alert('数据添加成功');location.href='Admin_Down.asp';</script>"
End Sub

Sub update_colume
    ID=trim(request("ID"))
	DownName=trim(request("DownName"))
	SortID=trim(request("Sort"))
	Accmode=trim(request("Accmode"))
	Language=trim(request("Language"))
	Approof=trim(request("Approof"))
	FileUrl=trim(request("FileUrl"))
	FileSize=trim(request("FileSize"))
	SoftPic=trim(request("pic"))
	sSoftPic=trim(request("spic"))
	Content=trim(request("Content"))
	if(trim(request("IsShow"))<>"") then
	IsShow=1
	else
	IsShow=0
	end if
	sql="update Idea_Down set [DownName]='"&DownName&"',[SortID]="&SortID&",[Accmode]='"&Accmode&"',[Language]='"&Language&"',[Approof]='"&Approof&"',[FileUrl]='"&FileUrl&"',[FileSize]='"&FileSize&"',[SoftPic]='"&SoftPic&"',[sSoftPic]='"&sSoftPic&"',[Content]='"&Content&"',[IsShow]='"&IsShow&"' where ID="&ID&""
	Call idea.exec("",-1)
	set rs = server.createobject("adodb.recordset")
	conn.execute(sql)
	set rs=nothing
	response.write "<script language=javascript>alert('数据更新成功');location.href='Admin_Down.asp';</script>"
End Sub

Function Inf_Count()
    sql="select * from Idea_Down"
	set rs=idea.exec(sql,1)
    Inf_Count=rs.recordcount
	rs.close
	set rs=nothing
End Function

%>